(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     60845,       1440]
NotebookOptionsPosition[     58915,       1400]
NotebookOutlinePosition[     59329,       1416]
CellTagsIndexPosition[     59286,       1413]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Nybom", " ", "and", " ", "Stuhler"}], ",", " ", 
    RowBox[{
     RowBox[{
     "Interpreting", " ", "Trends", " ", "in", " ", "Intergenerational", " ", 
      "Mobility"}], " ", "-", " ", 
     RowBox[{"Figure", " ", "1"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"See", " ", 
    RowBox[{"Figure1", ".", "xls"}], " ", "for", " ", "the", " ", 
    "simulation", " ", "results", " ", "underlying", " ", "these", " ", 
    "figures"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
    "SetDirectory", "[", 
     "\"\</Users/janstuhler/Dropbox/MartinJanProjects/Trend_Project/Examples/\
Mathematica\>\"", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.88959138199289*^9, 3.88959141850485*^9}, {
  3.911885355141975*^9, 3.91188537838585*^9}, {3.9119067387696943`*^9, 
  3.911906740065578*^9}},ExpressionUUID->"327d9648-6bc5-49ee-aabe-\
4bd5804d2b18"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Case", " ", "1"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "0.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rho", "=", "0.6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lambda", " ", "=", " ", "0.6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gammanew", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Change", " ", "in", " ", "beta"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"beta", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "0.445454545", ",", "0.445454545", ",", "0.545454545", ",", 
       "0.536724566", ",", "0.535334912", ",", "0.535090999"}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Draw", " ", "figure"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"#", ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.57", ",", "0.39"}], "}"}]}]}], "]"}], "&"}], "@", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"{", "beta", "}"}], ",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "Full"}], " ", ",", " ", 
      RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\[Beta]"}], "}"}]}], ",", " ", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.7", ",", "0.39"}], "}"}]}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], "}"}]}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.39", ",", "0.57"}], "}"}]}], " ", ",", " ", 
      RowBox[{"Ticks", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "\"\<T-2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "\"\<T-1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "\"\<T\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "\"\<T+1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "\"\<T+2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "\"\<T+3\>\""}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.4", ",", "0.45", ",", "0.5", ",", "0.55"}], "}"}]}], 
        "}"}]}], " ", ",", " ", 
      RowBox[{"PlotMarkers", "\[Rule]", " ", 
       RowBox[{"{", "\"\<\[FilledSmallSquare]\>\"", "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"\"\<vc2023_Case1\>\"", "<>", "\"\<.pdf\>\""}], ",", "%"}], 
     "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.547550549001932*^9, {3.547550608272328*^9, 3.547550631187665*^9}, {
   3.54755074474365*^9, 3.547550868551265*^9}, {3.547551385555194*^9, 
   3.54755147508525*^9}, {3.547551506342046*^9, 3.547551628054644*^9}, {
   3.547551869735284*^9, 3.547551881067939*^9}, {3.5475519441480217`*^9, 
   3.54755195388897*^9}, {3.889546951189609*^9, 3.889546987498187*^9}, {
   3.889547198655075*^9, 3.88954729229935*^9}, {3.8895474339195967`*^9, 
   3.88954752996364*^9}, {3.889547561249197*^9, 3.889547602755406*^9}, {
   3.889583976505724*^9, 3.889584015139032*^9}, {3.889584785819173*^9, 
   3.88958484823886*^9}, {3.889584893886092*^9, 3.8895849277023783`*^9}, {
   3.889590675771908*^9, 3.889590704538783*^9}, {3.889590742666307*^9, 
   3.889590866812059*^9}},
 CellLabel->
  "In[421]:=",ExpressionUUID->"7b08d2b4-4a00-4fe8-bb2e-181314d5ef8f"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], 
      LineBox[{{1., 0.445454545}, {2., 0.445454545}, {2., 0.445454545}, {3., 
       0.445454545}, {3., 0.545454545}, {4., 0.545454545}, {4., 
       0.536724566}, {5., 0.536724566}, {5., 0.535334912}, {6., 
       0.535334912}, {6., 0.535090999}}]}}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], GeometricTransformationBox[
      TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
       "InsetString"], {{{1., 0.445454545}}, {{2., 0.445454545}}, {{3., 
      0.545454545}}, {{4., 0.536724566}}, {{5., 0.535334912}}, {{6., 
      0.535090999}}, {{1., 0.445454545}}, {{2., 0.445454545}}, {{3., 
      0.545454545}}, {{4., 0.536724566}}, {{5., 0.535334912}}, {{6., 
      0.535090999}}}]}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], PointBox[{1., 0.445454545}], 
      PointBox[{2., 0.445454545}], PointBox[{3., 0.545454545}], 
      PointBox[{4., 0.536724566}], PointBox[{5., 0.535334912}], 
      PointBox[{6., 0.535090999}], PointBox[{1., 0.445454545}], 
      PointBox[{2., 0.445454545}], PointBox[{3., 0.545454545}], 
      PointBox[{4., 0.536724566}], PointBox[{5., 0.535334912}], 
      PointBox[{6., 0.535090999}]}, {}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Beta]", TraditionalForm]},
  AxesOrigin->{0.7, 0.39},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{0.57, 0.39},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{{{1, 
      FormBox["\"T-2\"", TraditionalForm]}, {2, 
      FormBox["\"T-1\"", TraditionalForm]}, {3, 
      FormBox["\"T\"", TraditionalForm]}, {4, 
      FormBox["\"T+1\"", TraditionalForm]}, {5, 
      FormBox["\"T+2\"", TraditionalForm]}, {6, 
      FormBox["\"T+3\"", TraditionalForm]}}, {{0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.45, 
      FormBox["0.45`", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {0.55, 
      FormBox["0.55`", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{{3.889590737792811*^9, 3.88959074316632*^9}, 
   3.8895908006604137`*^9, {3.8895908596574507`*^9, 3.889590867429241*^9}},
 CellLabel->
  "Out[426]=",ExpressionUUID->"fd1de668-2bcf-42f3-9cc8-3684d827645c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Case", " ", "2"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "0.3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rho", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"lambda", " ", "=", " ", "0.8"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rhonew", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Change", " ", "in", " ", "beta"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"beta", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "0.342105263", ",", "0.342105263", ",", "0.405263158", ",", 
       "0.480514551", ",", "0.489287857", ",", "0.49077505"}], "}"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Draw", " ", "figure"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"#", ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.52", ",", "0.31"}], "}"}]}]}], "]"}], "&"}], "@", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"{", "beta", "}"}], ",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "Full"}], " ", ",", " ", 
      RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\[Beta]"}], "}"}]}], ",", " ", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.7", ",", "0.31"}], "}"}]}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], "}"}]}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.31", ",", "0.52"}], "}"}]}], " ", ",", " ", 
      RowBox[{"Ticks", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "\"\<T-2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "\"\<T-1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "\"\<T\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "\"\<T+1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "\"\<T+2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "\"\<T+3\>\""}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.35", ",", "0.4", ",", "0.45", ",", "0.5"}], "}"}]}], 
        "}"}]}], " ", ",", " ", 
      RowBox[{"PlotMarkers", "\[Rule]", " ", 
       RowBox[{"{", "\"\<\[FilledSmallSquare]\>\"", "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"\"\<vc2023_Case2\>\"", "<>", "\"\<.pdf\>\""}], ",", "%"}], 
     "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.547550549001932*^9, {3.547550608272328*^9, 3.547550631187665*^9}, {
   3.54755074474365*^9, 3.547550868551265*^9}, {3.547551385555194*^9, 
   3.54755147508525*^9}, {3.547551506342046*^9, 3.547551628054644*^9}, {
   3.547551869735284*^9, 3.547551881067939*^9}, {3.5475519441480217`*^9, 
   3.54755195388897*^9}, {3.889546951189609*^9, 3.889546987498187*^9}, {
   3.889547198655075*^9, 3.88954729229935*^9}, {3.8895474339195967`*^9, 
   3.88954752996364*^9}, {3.889547561249197*^9, 3.889547602755406*^9}, {
   3.889583976505724*^9, 3.889584015139032*^9}, {3.889584785819173*^9, 
   3.88958484823886*^9}, {3.889584893886092*^9, 3.8895849277023783`*^9}, {
   3.889590294732423*^9, 3.889590487040505*^9}, {3.889590558362212*^9, 
   3.8895906592159433`*^9}, {3.889590699544039*^9, 3.889590729082489*^9}, {
   3.889593285139091*^9, 3.88959328849197*^9}},
 CellLabel->
  "In[624]:=",ExpressionUUID->"52a6c6aa-b98e-4870-acf2-27b11f99c81c"],

Cell[BoxData["0.8`"], "Output",
 CellChangeTimes->{
  3.889584934995139*^9, {3.889590393789773*^9, 3.88959048727439*^9}, 
   3.88959056287998*^9, 3.889590597258198*^9, 3.889593288876646*^9},
 CellLabel->
  "Out[626]=",ExpressionUUID->"acc7dd2a-8252-4f73-b6ff-c3be1fb91f04"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], 
      LineBox[{{1., 0.342105263}, {2., 0.342105263}, {2., 0.342105263}, {3., 
       0.342105263}, {3., 0.405263158}, {4., 0.405263158}, {4., 
       0.480514551}, {5., 0.480514551}, {5., 0.489287857}, {6., 
       0.489287857}, {6., 0.49077505}}]}}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], GeometricTransformationBox[
      TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
       "InsetString"], {{{1., 0.342105263}}, {{2., 0.342105263}}, {{3., 
      0.405263158}}, {{4., 0.480514551}}, {{5., 0.489287857}}, {{6., 
      0.49077505}}, {{1., 0.342105263}}, {{2., 0.342105263}}, {{3., 
      0.405263158}}, {{4., 0.480514551}}, {{5., 0.489287857}}, {{6., 
      0.49077505}}}]}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], PointBox[{1., 0.342105263}], 
      PointBox[{2., 0.342105263}], PointBox[{3., 0.405263158}], 
      PointBox[{4., 0.480514551}], PointBox[{5., 0.489287857}], 
      PointBox[{6., 0.49077505}], PointBox[{1., 0.342105263}], 
      PointBox[{2., 0.342105263}], PointBox[{3., 0.405263158}], 
      PointBox[{4., 0.480514551}], PointBox[{5., 0.489287857}], 
      PointBox[{6., 0.49077505}]}, {}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Beta]", TraditionalForm]},
  AxesOrigin->{0.7, 0.31},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{0.52, 0.31},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{{{1, 
      FormBox["\"T-2\"", TraditionalForm]}, {2, 
      FormBox["\"T-1\"", TraditionalForm]}, {3, 
      FormBox["\"T\"", TraditionalForm]}, {4, 
      FormBox["\"T+1\"", TraditionalForm]}, {5, 
      FormBox["\"T+2\"", TraditionalForm]}, {6, 
      FormBox["\"T+3\"", TraditionalForm]}}, {{0.35, 
      FormBox["0.35`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.45, 
      FormBox["0.45`", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.889584934995139*^9, {3.889590393789773*^9, 3.88959048727439*^9}, 
   3.88959056287998*^9, 3.889590597258198*^9, 3.889593288923274*^9},
 CellLabel->
  "Out[629]=",ExpressionUUID->"c3fbfad9-80b4-4eb0-8f8d-e1076fdc1d07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Case", " ", "3"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "0.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rho", "=", "0.6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lambda", " ", "=", " ", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lambdanew", "=", "0.7"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Change", " ", "in", " ", "beta"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"beta", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "0.4", ",", "0.4", ",", "0.48", ",", "0.514449213", ",", "0.52772463", 
       ",", "0.533465704"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Draw", " ", "figure"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"#", ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.57", ",", "0.37"}], "}"}]}]}], "]"}], "&"}], "@", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"{", "beta", "}"}], ",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "Full"}], " ", ",", " ", 
      RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\[Beta]"}], "}"}]}], ",", " ", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.7", ",", "0.37"}], "}"}]}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], "}"}]}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.37", ",", "0.57"}], "}"}]}], " ", ",", " ", 
      RowBox[{"Ticks", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "\"\<T-2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "\"\<T-1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "\"\<T\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "\"\<T+1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "\"\<T+2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "\"\<T+3\>\""}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.4", ",", "0.45", ",", "0.5", ",", "0.55"}], "}"}]}], 
        "}"}]}], " ", ",", " ", 
      RowBox[{"PlotMarkers", "\[Rule]", " ", 
       RowBox[{"{", "\"\<\[FilledSmallSquare]\>\"", "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"\"\<vc2023_Case3\>\"", "<>", "\"\<.pdf\>\""}], ",", "%"}], 
     "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.547550549001932*^9, {3.547550608272328*^9, 3.547550631187665*^9}, {
   3.54755074474365*^9, 3.547550868551265*^9}, {3.547551385555194*^9, 
   3.54755147508525*^9}, {3.547551506342046*^9, 3.547551628054644*^9}, {
   3.547551869735284*^9, 3.547551881067939*^9}, {3.5475519441480217`*^9, 
   3.54755195388897*^9}, {3.889546951189609*^9, 3.889546987498187*^9}, {
   3.889547198655075*^9, 3.88954729229935*^9}, {3.8895474339195967`*^9, 
   3.88954752996364*^9}, {3.889547561249197*^9, 3.889547602755406*^9}, {
   3.889583976505724*^9, 3.889584015139032*^9}, {3.889584785819173*^9, 
   3.88958484823886*^9}, {3.889584893886092*^9, 3.8895849277023783`*^9}, {
   3.889590294732423*^9, 3.889590487040505*^9}, {3.889590558362212*^9, 
   3.8895906592159433`*^9}, {3.889590699544039*^9, 3.889590729082489*^9}, {
   3.889590980427804*^9, 3.889591117473784*^9}},
 CellLabel->
  "In[496]:=",ExpressionUUID->"40a1ddfc-4c24-4691-b83f-7649a2eac409"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], 
      LineBox[{{1., 0.4}, {2., 0.4}, {2., 0.4}, {3., 0.4}, {3., 0.48}, {4., 
       0.48}, {4., 0.514449213}, {5., 0.514449213}, {5., 0.52772463}, {6., 
       0.52772463}, {6., 0.533465704}}]}}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], GeometricTransformationBox[
      TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
       "InsetString"], {{{1., 0.4}}, {{2., 0.4}}, {{3., 0.48}}, {{4., 
      0.514449213}}, {{5., 0.52772463}}, {{6., 0.533465704}}, {{1., 0.4}}, {{
      2., 0.4}}, {{3., 0.48}}, {{4., 0.514449213}}, {{5., 0.52772463}}, {{6., 
      0.533465704}}}]}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], PointBox[{1., 0.4}], PointBox[{2., 0.4}], 
      PointBox[{3., 0.48}], PointBox[{4., 0.514449213}], 
      PointBox[{5., 0.52772463}], PointBox[{6., 0.533465704}], 
      PointBox[{1., 0.4}], PointBox[{2., 0.4}], PointBox[{3., 0.48}], 
      PointBox[{4., 0.514449213}], PointBox[{5., 0.52772463}], 
      PointBox[{6., 0.533465704}]}, {}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Beta]", TraditionalForm]},
  AxesOrigin->{0.7, 0.37},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{0.57, 0.37},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{{{1, 
      FormBox["\"T-2\"", TraditionalForm]}, {2, 
      FormBox["\"T-1\"", TraditionalForm]}, {3, 
      FormBox["\"T\"", TraditionalForm]}, {4, 
      FormBox["\"T+1\"", TraditionalForm]}, {5, 
      FormBox["\"T+2\"", TraditionalForm]}, {6, 
      FormBox["\"T+3\"", TraditionalForm]}}, {{0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.45, 
      FormBox["0.45`", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {0.55, 
      FormBox["0.55`", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.889591048621312*^9, {3.889591079398142*^9, 3.889591121045185*^9}, 
   3.889591608529508*^9},
 CellLabel->
  "Out[501]=",ExpressionUUID->"26daf50b-303e-4932-879f-b256ac91160d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Case", " ", "4"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "0.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rho", "=", "0.6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lambda", " ", "=", " ", "0.7"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Change", " ", "in", " ", "beta"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ss", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"0.493023256", ",", "0.493023256", ",", "0.493023256"}], 
      "}"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"sigmachange", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.493023256", ",", "0.493023256", ",", "0.493023256", ",", 
       "0.393133047", ",", "0.39053495", ",", "0.390432479"}], "}"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"phichange", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.493023256", ",", "0.493023256", ",", "0.493023256", ",", 
       "0.55404901", ",", "0.574669636", ",", "0.582442351"}], "}"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Draw", " ", "figure"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"#", ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.62", ",", "0.36"}], "}"}]}]}], "]"}], "&"}], "@", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"ss", ",", "sigmachange", ",", "phichange"}], "}"}], ",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "Full"}], " ", ",", " ", 
      RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\[Beta]"}], "}"}]}], ",", " ", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.7", ",", "0.36"}], "}"}]}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.36", ",", "0.62"}], "}"}]}], " ", ",", " ", 
      RowBox[{"Ticks", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "\"\<T-2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "\"\<T-1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "\"\<T\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "\"\<T+1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "\"\<T+2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "\"\<T+3\>\""}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.4", ",", "0.45", ",", "0.5", ",", "0.55", ",", "0.6"}], 
          "}"}]}], "}"}]}], " ", ",", " ", 
      RowBox[{"PlotMarkers", "\[Rule]", "  ", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\>\"", ",", "\"\<\[FilledSmallSquare]\>\"", ",", 
         "\"\<\[FilledSmallSquare]\>\""}], "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"\"\<vc2023_Case4\>\"", "<>", "\"\<.pdf\>\""}], ",", "%"}], 
     "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.547550549001932*^9, {3.547550608272328*^9, 3.547550631187665*^9}, {
   3.54755074474365*^9, 3.547550868551265*^9}, {3.547551385555194*^9, 
   3.54755147508525*^9}, {3.547551506342046*^9, 3.547551628054644*^9}, {
   3.547551869735284*^9, 3.547551881067939*^9}, {3.5475519441480217`*^9, 
   3.54755195388897*^9}, {3.889546951189609*^9, 3.889546987498187*^9}, {
   3.889547198655075*^9, 3.88954729229935*^9}, {3.8895474339195967`*^9, 
   3.88954752996364*^9}, {3.889547561249197*^9, 3.889547602755406*^9}, {
   3.889583976505724*^9, 3.889584015139032*^9}, {3.889584785819173*^9, 
   3.88958484823886*^9}, {3.889584893886092*^9, 3.8895849277023783`*^9}, {
   3.889590294732423*^9, 3.889590487040505*^9}, {3.889590558362212*^9, 
   3.8895906592159433`*^9}, {3.889590699544039*^9, 3.889590729082489*^9}, {
   3.889590980427804*^9, 3.889591117473784*^9}, 3.88959115573706*^9, {
   3.8895912227611*^9, 3.889591246280686*^9}, {3.8895914537683773`*^9, 
   3.8895915171858873`*^9}, {3.8895915729011393`*^9, 3.889591607035507*^9}, {
   3.8895916403260612`*^9, 3.889591727156197*^9}},
 CellLabel->
  "In[527]:=",ExpressionUUID->"0ac2eb37-af38-4cb1-9bb3-3e9dfa754b5d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  GraphicsBox[{{}, {{{}, {}, 
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
       LineBox[{{1., 0.493023256}, {2., 0.493023256}, {2., 0.493023256}, {3., 
        0.493023256}, {3., 0.493023256}}]}, 
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}], 
       LineBox[{{1., 0.493023256}, {2., 0.493023256}, {2., 0.493023256}, {3., 
        0.493023256}, {3., 0.493023256}, {4., 0.493023256}, {4., 
        0.393133047}, {5., 0.393133047}, {5., 0.39053495}, {6., 0.39053495}, {
        6., 0.390432479}}]}, 
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}], 
       LineBox[{{1., 0.493023256}, {2., 0.493023256}, {2., 0.493023256}, {3., 
        0.493023256}, {3., 0.493023256}, {4., 0.493023256}, {4., 
        0.55404901}, {5., 0.55404901}, {5., 0.574669636}, {6., 0.574669636}, {
        6., 0.582442351}}]}}, {
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
       GeometricTransformationBox[
        TagBox[InsetBox["", {0., 0.}],
         "InsetString"], {{{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
        0.493023256}}, {{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
        0.493023256}}}]}, 
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}], GeometricTransformationBox[
        TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
         "InsetString"], {{{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
        0.493023256}}, {{4., 0.393133047}}, {{5., 0.39053495}}, {{6., 
        0.390432479}}, {{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
        0.493023256}}, {{4., 0.393133047}}, {{5., 0.39053495}}, {{6., 
        0.390432479}}}]}, 
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}], GeometricTransformationBox[
        TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
         "InsetString"], {{{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
        0.493023256}}, {{4., 0.55404901}}, {{5., 0.574669636}}, {{6., 
        0.582442351}}, {{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
        0.493023256}}, {{4., 0.55404901}}, {{5., 0.574669636}}, {{6., 
        0.582442351}}}]}}, {
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
       PointBox[{1., 0.493023256}], PointBox[{2., 0.493023256}], 
       PointBox[{3., 0.493023256}], PointBox[{1., 0.493023256}], 
       PointBox[{2., 0.493023256}], PointBox[{3., 0.493023256}]}, 
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}], PointBox[{1., 0.493023256}], 
       PointBox[{2., 0.493023256}], PointBox[{3., 0.493023256}], 
       PointBox[{4., 0.393133047}], PointBox[{5., 0.39053495}], 
       PointBox[{6., 0.390432479}], PointBox[{1., 0.493023256}], 
       PointBox[{2., 0.493023256}], PointBox[{3., 0.493023256}], 
       PointBox[{4., 0.393133047}], PointBox[{5., 0.39053495}], 
       PointBox[{6., 0.390432479}]}, 
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}], PointBox[{1., 0.493023256}], 
       PointBox[{2., 0.493023256}], PointBox[{3., 0.493023256}], 
       PointBox[{4., 0.55404901}], PointBox[{5., 0.574669636}], 
       PointBox[{6., 0.582442351}], PointBox[{1., 0.493023256}], 
       PointBox[{2., 0.493023256}], PointBox[{3., 0.493023256}], 
       PointBox[{4., 0.55404901}], PointBox[{5., 0.574669636}], 
       PointBox[{6., 0.582442351}]}, {}, {}, {}, {}, {}, {}, {}}, {
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], Thickness[Large]}, 
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {GrayLevel[0], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, {}, {}, {}, {}, {}, {}, {}}}, 
    InsetBox["", {4.463858005313054, 0.5358547878856875}, {Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell[TextData[{
       "increase in ",
       Cell[BoxData[
        FormBox[
         SuperscriptBox["\[CapitalPhi]", "2"], TraditionalForm]],
        FormatType->"TraditionalForm",ExpressionUUID->
        "273d49be-3ea8-4f59-b802-376fde149378"]
      }],
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "1b7579ad-7eec-4807-81a9-32c1e5841040"],
      FontWeight->Plain], {4.521929741307536, 0.5274885399577212}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell[TextData[{
       "increase in ",
       Cell[BoxData[
        FormBox[
         SuperscriptBox["\[Sigma]", "2"], TraditionalForm]],
        FormatType->"TraditionalForm",ExpressionUUID->
        "6c729d23-ebd3-4c24-8704-e87a6f8e594f"],
       " "
      }],
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "174878ec-c436-471f-aab5-e6b42a82811d"],
      FontWeight->Plain], {4.519156615230695, 0.4170693203976982}, {
     Left, Baseline},
     Alignment->{Left, Top}]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["t", TraditionalForm], 
     FormBox["\[Beta]", TraditionalForm]},
   AxesOrigin->{0.7, 0.36},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImagePadding->{{15.346939, 12.}, {17., 19.}},
   ImageSize->{361.34762573242165`, Automatic},
   Method->{
    "OptimizePlotMarkers" -> True, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0.5895833333333333, 6.110416666666667}, {0.36, 0.62}},
   PlotRangeClipping->True,
   PlotRangePadding->Automatic,
   Ticks->{{{1, 
       FormBox["\"T-2\"", TraditionalForm]}, {2, 
       FormBox["\"T-1\"", TraditionalForm]}, {3, 
       FormBox["\"T\"", TraditionalForm]}, {4, 
       FormBox["\"T+1\"", TraditionalForm]}, {5, 
       FormBox["\"T+2\"", TraditionalForm]}, {6, 
       FormBox["\"T+3\"", TraditionalForm]}}, {{0.4, 
       FormBox["0.4`", TraditionalForm]}, {0.45, 
       FormBox["0.45`", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {0.55, 
       FormBox["0.55`", TraditionalForm]}, {0.6, 
       FormBox["0.6`", TraditionalForm]}}}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Manually", " ", "add", " ", "text"}], ";", " ", 
    RowBox[{"type", " ", "greek", " ", "letters", " ", "as", " ", 
     RowBox[{"\\[", "...", "]"}]}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"\"\<vc2023_Case4\>\"", "<>", "\"\<.pdf\>\""}], ",", "%"}], "]"}],
   ";"}]}], "Input",
 CellChangeTimes->{{3.889591794339918*^9, 3.889591939922203*^9}, {
  3.88959197909198*^9, 3.889592012059104*^9}, {3.889592074303647*^9, 
  3.889592074556509*^9}, {3.889592134685939*^9, 3.8895921453896933`*^9}},
 CellLabel->
  "In[538]:=",ExpressionUUID->"e493d695-725d-4907-b181-90d17cb9683c"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      LineBox[{{1., 0.493023256}, {2., 0.493023256}, {2., 0.493023256}, {3., 
       0.493023256}, {3., 0.493023256}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], 
      LineBox[{{1., 0.493023256}, {2., 0.493023256}, {2., 0.493023256}, {3., 
       0.493023256}, {3., 0.493023256}, {4., 0.493023256}, {4., 
       0.393133047}, {5., 0.393133047}, {5., 0.39053495}, {6., 0.39053495}, {
       6., 0.390432479}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], 
      LineBox[{{1., 0.493023256}, {2., 0.493023256}, {2., 0.493023256}, {3., 
       0.493023256}, {3., 0.493023256}, {4., 0.493023256}, {4., 0.55404901}, {
       5., 0.55404901}, {5., 0.574669636}, {6., 0.574669636}, {6., 
       0.582442351}}]}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      GeometricTransformationBox[
       TagBox[InsetBox["", {0., 0.}],
        "InsetString"], {{{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
       0.493023256}}, {{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
       0.493023256}}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], GeometricTransformationBox[
       TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
        "InsetString"], {{{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
       0.493023256}}, {{4., 0.393133047}}, {{5., 0.39053495}}, {{6., 
       0.390432479}}, {{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
       0.493023256}}, {{4., 0.393133047}}, {{5., 0.39053495}}, {{6., 
       0.390432479}}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], GeometricTransformationBox[
       TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
        "InsetString"], {{{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
       0.493023256}}, {{4., 0.55404901}}, {{5., 0.574669636}}, {{6., 
       0.582442351}}, {{1., 0.493023256}}, {{2., 0.493023256}}, {{3., 
       0.493023256}}, {{4., 0.55404901}}, {{5., 0.574669636}}, {{6., 
       0.582442351}}}]}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      PointBox[{1., 0.493023256}], PointBox[{2., 0.493023256}], 
      PointBox[{3., 0.493023256}], PointBox[{1., 0.493023256}], 
      PointBox[{2., 0.493023256}], PointBox[{3., 0.493023256}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], PointBox[{1., 0.493023256}], 
      PointBox[{2., 0.493023256}], PointBox[{3., 0.493023256}], 
      PointBox[{4., 0.393133047}], PointBox[{5., 0.39053495}], 
      PointBox[{6., 0.390432479}], PointBox[{1., 0.493023256}], 
      PointBox[{2., 0.493023256}], PointBox[{3., 0.493023256}], 
      PointBox[{4., 0.393133047}], PointBox[{5., 0.39053495}], 
      PointBox[{6., 0.390432479}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], PointBox[{1., 0.493023256}], 
      PointBox[{2., 0.493023256}], PointBox[{3., 0.493023256}], 
      PointBox[{4., 0.55404901}], PointBox[{5., 0.574669636}], 
      PointBox[{6., 0.582442351}], PointBox[{1., 0.493023256}], 
      PointBox[{2., 0.493023256}], PointBox[{3., 0.493023256}], 
      PointBox[{4., 0.55404901}], PointBox[{5., 0.574669636}], 
      PointBox[{6., 0.582442351}]}, {}, {}, {}, {}, {}, {}, {}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}]}, {}, {}, {}, {}, {}, {}, {}}}, 
   InsetBox["", {4.463858005313054, 0.5358547878856875}, {Left, Baseline},
    Alignment->{Left, Top}], InsetBox[Cell[TextData[{
     "increase in ",
     Cell[BoxData[
      FormBox[
       SuperscriptBox["\[CapitalPhi]", "2"], TraditionalForm]],ExpressionUUID->
      "7dce2823-0d00-4981-b5db-f28916bc9583"]
    }],
     GeneratedCell->False,
     CellAutoOverwrite->False,
     CellBaseline->Baseline,
     TextAlignment->Left,ExpressionUUID->
     "69062d97-47d9-4c7d-b7f7-3bc0f728cf30"], \
{4.521929741307536, 0.5274885399577212}, {Left, Baseline},
    Alignment->{Left, Top}], InsetBox[Cell[TextData[{
     "increase in ",
     Cell[BoxData[
      FormBox[
       SuperscriptBox["\[Sigma]", "2"], TraditionalForm]],ExpressionUUID->
      "7398356d-2809-44ac-83aa-af6e9f7837b7"],
     " "
    }],
     GeneratedCell->False,
     CellAutoOverwrite->False,
     CellBaseline->Baseline,
     TextAlignment->Left,ExpressionUUID->
     "af01005e-4c1c-4303-b222-fa493d7f2767"], \
{4.519156615230695, 0.4170693203976982}, {Left, Baseline},
    Alignment->{Left, Top}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Beta]", TraditionalForm]},
  AxesOrigin->{0.7, 0.36},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{15.346939, 12.}, {17., 19.}},
  ImageSize->{361.34762573242165`, Automatic},
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.5895833333333333, 6.110416666666667}, {0.36, 0.62}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  Ticks->{{{1, 
      FormBox["\"T-2\"", TraditionalForm]}, {2, 
      FormBox["\"T-1\"", TraditionalForm]}, {3, 
      FormBox["\"T\"", TraditionalForm]}, {4, 
      FormBox["\"T+1\"", TraditionalForm]}, {5, 
      FormBox["\"T+2\"", TraditionalForm]}, {6, 
      FormBox["\"T+3\"", TraditionalForm]}}, {{0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.45, 
      FormBox["0.45`", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {0.55, 
      FormBox["0.55`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{3.88959214863962*^9},
 CellLabel->
  "Out[538]=",ExpressionUUID->"127ce3f2-75fe-4781-8c58-0e64da58f8bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Case", " ", "5"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "0.4"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rho", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lambda", " ", "=", " ", "0.6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gammanew", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rhonew", "=", "0.8"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Change", " ", "in", " ", "beta"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"beta", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "0.597368421", ",", "0.597368421", ",", "0.515789474", ",", 
       "0.540671483", ",", "0.536816002", ",", "0.536131801"}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Draw", " ", "figure"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"#", ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.66", ",", "0.47"}], "}"}]}]}], "]"}], "&"}], "@", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"{", "beta", "}"}], ",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "Full"}], " ", ",", " ", 
      RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\[Beta]"}], "}"}]}], ",", " ", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.7", ",", "0.47"}], "}"}]}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], "}"}]}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.47", ",", "0.66"}], "}"}]}], " ", ",", " ", 
      RowBox[{"Ticks", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "\"\<T-2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "\"\<T-1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "\"\<T\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "\"\<T+1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "\"\<T+2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "\"\<T+3\>\""}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", "0.55", ",", "0.60", ",", "0.65"}], "}"}]}], 
        "}"}]}], " ", ",", " ", 
      RowBox[{"PlotMarkers", "\[Rule]", " ", 
       RowBox[{"{", "\"\<\[FilledSmallSquare]\>\"", "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"\"\<vc2023_Case5\>\"", "<>", "\"\<.pdf\>\""}], ",", "%"}], 
     "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.547550549001932*^9, {3.547550608272328*^9, 3.547550631187665*^9}, {
   3.54755074474365*^9, 3.547550868551265*^9}, {3.547551385555194*^9, 
   3.54755147508525*^9}, {3.547551506342046*^9, 3.547551628054644*^9}, {
   3.547551869735284*^9, 3.547551881067939*^9}, {3.5475519441480217`*^9, 
   3.54755195388897*^9}, {3.889546951189609*^9, 3.889546987498187*^9}, {
   3.889547198655075*^9, 3.88954729229935*^9}, {3.8895474339195967`*^9, 
   3.88954752996364*^9}, {3.889547561249197*^9, 3.889547602755406*^9}, {
   3.889583976505724*^9, 3.889584015139032*^9}, {3.889584785819173*^9, 
   3.88958484823886*^9}, {3.889584893886092*^9, 3.8895849277023783`*^9}, {
   3.889590294732423*^9, 3.889590487040505*^9}, {3.889590558362212*^9, 
   3.8895906592159433`*^9}, {3.889590699544039*^9, 3.889590729082489*^9}, {
   3.889590980427804*^9, 3.889591117473784*^9}, {3.8895922817113113`*^9, 
   3.889592466159848*^9}, {3.8895925103419533`*^9, 3.889592561158864*^9}, {
   3.88959327004731*^9, 3.8895932730496187`*^9}},
 CellLabel->
  "In[616]:=",ExpressionUUID->"e99cbccd-6058-4ac4-a66b-b8ee25abfaff"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], 
      LineBox[{{1., 0.597368421}, {2., 0.597368421}, {2., 0.597368421}, {3., 
       0.597368421}, {3., 0.515789474}, {4., 0.515789474}, {4., 
       0.540671483}, {5., 0.540671483}, {5., 0.536816002}, {6., 
       0.536816002}, {6., 0.536131801}}]}}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], GeometricTransformationBox[
      TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
       "InsetString"], {{{1., 0.597368421}}, {{2., 0.597368421}}, {{3., 
      0.515789474}}, {{4., 0.540671483}}, {{5., 0.536816002}}, {{6., 
      0.536131801}}, {{1., 0.597368421}}, {{2., 0.597368421}}, {{3., 
      0.515789474}}, {{4., 0.540671483}}, {{5., 0.536816002}}, {{6., 
      0.536131801}}}]}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], PointBox[{1., 0.597368421}], 
      PointBox[{2., 0.597368421}], PointBox[{3., 0.515789474}], 
      PointBox[{4., 0.540671483}], PointBox[{5., 0.536816002}], 
      PointBox[{6., 0.536131801}], PointBox[{1., 0.597368421}], 
      PointBox[{2., 0.597368421}], PointBox[{3., 0.515789474}], 
      PointBox[{4., 0.540671483}], PointBox[{5., 0.536816002}], 
      PointBox[{6., 0.536131801}]}, {}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Beta]", TraditionalForm]},
  AxesOrigin->{0.7, 0.47},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{0.66, 0.47},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{{{1, 
      FormBox["\"T-2\"", TraditionalForm]}, {2, 
      FormBox["\"T-1\"", TraditionalForm]}, {3, 
      FormBox["\"T\"", TraditionalForm]}, {4, 
      FormBox["\"T+1\"", TraditionalForm]}, {5, 
      FormBox["\"T+2\"", TraditionalForm]}, {6, 
      FormBox["\"T+3\"", TraditionalForm]}}, {{0.5, 
      FormBox["0.5`", TraditionalForm]}, {0.55, 
      FormBox["0.55`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.65, 
      FormBox["0.65`", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.889592411431931*^9, 3.889592448241823*^9, {3.8895925262784863`*^9, 
   3.889592562022436*^9}, 3.889592762149242*^9, 3.8895932738070374`*^9},
 CellLabel->
  "Out[622]=",ExpressionUUID->"e916f4a9-9342-4f65-80fa-233a464c5416"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Case", " ", "6"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "0.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rho", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lambda", " ", "=", " ", "0.6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rhonew", "=", "0.6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Change", " ", "in", " ", "beta"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"beta", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "0.506818182", ",", "0.506818182", ",", "0.445454545", ",", 
       "0.506989748", ",", "0.507140771", ",", "0.506868816"}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Draw", " ", "figure"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"#", ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.56", ",", "0.38"}], "}"}]}]}], "]"}], "&"}], "@", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"{", "beta", "}"}], ",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "Full"}], " ", ",", " ", 
      RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\[Beta]"}], "}"}]}], ",", " ", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.7", ",", "0.38"}], "}"}]}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], "}"}]}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.38", ",", "0.56"}], "}"}]}], " ", ",", " ", 
      RowBox[{"Ticks", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "\"\<T-2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "\"\<T-1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "\"\<T\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "\"\<T+1\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "\"\<T+2\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "\"\<T+3\>\""}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.4", ",", "0.45", ",", "0.50", ",", "0.55"}], "}"}]}], 
        "}"}]}], " ", ",", " ", 
      RowBox[{"PlotMarkers", "\[Rule]", " ", 
       RowBox[{"{", "\"\<\[FilledSmallSquare]\>\"", "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"\"\<vc2023_Case6\>\"", "<>", "\"\<.pdf\>\""}], ",", "%"}], 
     "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.547550549001932*^9, {3.547550608272328*^9, 3.547550631187665*^9}, {
   3.54755074474365*^9, 3.547550868551265*^9}, {3.547551385555194*^9, 
   3.54755147508525*^9}, {3.547551506342046*^9, 3.547551628054644*^9}, {
   3.547551869735284*^9, 3.547551881067939*^9}, {3.5475519441480217`*^9, 
   3.54755195388897*^9}, {3.889546951189609*^9, 3.889546987498187*^9}, {
   3.889547198655075*^9, 3.88954729229935*^9}, {3.8895474339195967`*^9, 
   3.88954752996364*^9}, {3.889547561249197*^9, 3.889547602755406*^9}, {
   3.889583976505724*^9, 3.889584015139032*^9}, {3.889584785819173*^9, 
   3.88958484823886*^9}, {3.889584893886092*^9, 3.8895849277023783`*^9}, {
   3.889590294732423*^9, 3.889590487040505*^9}, {3.889590558362212*^9, 
   3.8895906592159433`*^9}, {3.889590699544039*^9, 3.889590729082489*^9}, {
   3.889590980427804*^9, 3.889591117473784*^9}, {3.8895922817113113`*^9, 
   3.889592466159848*^9}, {3.8895925103419533`*^9, 3.889592561158864*^9}, {
   3.889592617539115*^9, 3.889592649263739*^9}, {3.8895926952978*^9, 
   3.889592761084079*^9}},
 CellLabel->
  "In[609]:=",ExpressionUUID->"b14f9681-96e9-4729-8bbc-fee1cccd8738"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], 
      LineBox[{{1., 0.506818182}, {2., 0.506818182}, {2., 0.506818182}, {3., 
       0.506818182}, {3., 0.445454545}, {4., 0.445454545}, {4., 
       0.506989748}, {5., 0.506989748}, {5., 0.507140771}, {6., 
       0.507140771}, {6., 0.506868816}}]}}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], GeometricTransformationBox[
      TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
       "InsetString"], {{{1., 0.506818182}}, {{2., 0.506818182}}, {{3., 
      0.445454545}}, {{4., 0.506989748}}, {{5., 0.507140771}}, {{6., 
      0.506868816}}, {{1., 0.506818182}}, {{2., 0.506818182}}, {{3., 
      0.445454545}}, {{4., 0.506989748}}, {{5., 0.507140771}}, {{6., 
      0.506868816}}}]}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], PointBox[{1., 0.506818182}], 
      PointBox[{2., 0.506818182}], PointBox[{3., 0.445454545}], 
      PointBox[{4., 0.506989748}], PointBox[{5., 0.507140771}], 
      PointBox[{6., 0.506868816}], PointBox[{1., 0.506818182}], 
      PointBox[{2., 0.506818182}], PointBox[{3., 0.445454545}], 
      PointBox[{4., 0.506989748}], PointBox[{5., 0.507140771}], 
      PointBox[{6., 0.506868816}]}, {}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Beta]", TraditionalForm]},
  AxesOrigin->{0.7, 0.38},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{0.56, 0.38},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{{{1, 
      FormBox["\"T-2\"", TraditionalForm]}, {2, 
      FormBox["\"T-1\"", TraditionalForm]}, {3, 
      FormBox["\"T\"", TraditionalForm]}, {4, 
      FormBox["\"T+1\"", TraditionalForm]}, {5, 
      FormBox["\"T+2\"", TraditionalForm]}, {6, 
      FormBox["\"T+3\"", TraditionalForm]}}, {{0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.45, 
      FormBox["0.45`", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {0.55, 
      FormBox["0.55`", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{{3.889592717252151*^9, 3.889592764019822*^9}},
 CellLabel->
  "Out[614]=",ExpressionUUID->"7bc520de-ca2b-4668-81b3-8e1e5c1ce6bd"]
}, Open  ]]
},
WindowSize->{938, 1147},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1080, 26, 94, "Input",ExpressionUUID->"327d9648-6bc5-49ee-aabe-4bd5804d2b18"],
Cell[CellGroupData[{
Cell[1662, 50, 3833, 91, 325, "Input",ExpressionUUID->"7b08d2b4-4a00-4fe8-bb2e-181314d5ef8f"],
Cell[5498, 143, 3376, 77, 259, "Output",ExpressionUUID->"fd1de668-2bcf-42f3-9cc8-3684d827645c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8911, 225, 3906, 91, 325, "Input",ExpressionUUID->"52a6c6aa-b98e-4870-acf2-27b11f99c81c"],
Cell[12820, 318, 273, 5, 34, "Output",ExpressionUUID->"acc7dd2a-8252-4f73-b6ff-c3be1fb91f04"],
Cell[13096, 325, 3389, 78, 259, "Output",ExpressionUUID->"c3fbfad9-80b4-4eb0-8f8d-e1076fdc1d07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16522, 408, 3903, 91, 325, "Input",ExpressionUUID->"40a1ddfc-4c24-4691-b83f-7649a2eac409"],
Cell[20428, 501, 3186, 75, 259, "Output",ExpressionUUID->"26daf50b-303e-4932-879f-b256ac91160d"]
}, Open  ]],
Cell[23629, 579, 4821, 114, 367, "Input",ExpressionUUID->"0ac2eb37-af38-4cb1-9bb3-3e9dfa754b5d"],
Cell[CellGroupData[{
Cell[28475, 697, 8139, 179, 314, "Input",ExpressionUUID->"e493d695-725d-4907-b181-90d17cb9683c"],
Cell[36617, 878, 7211, 160, 259, "Output",ExpressionUUID->"127ce3f2-75fe-4781-8c58-0e64da58f8bd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43865, 1043, 4162, 96, 346, "Input",ExpressionUUID->"e99cbccd-6058-4ac4-a66b-b8ee25abfaff"],
Cell[48030, 1141, 3400, 78, 259, "Output",ExpressionUUID->"e916f4a9-9342-4f65-80fa-233a464c5416"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51467, 1224, 4128, 95, 325, "Input",ExpressionUUID->"b14f9681-96e9-4729-8bbc-fee1cccd8738"],
Cell[55598, 1321, 3301, 76, 259, "Output",ExpressionUUID->"7bc520de-ca2b-4668-81b3-8e1e5c1ce6bd"]
}, Open  ]]
}
]
*)

